home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
NeXTSTEP 3.3 (Developer)…68k, x86, SPARC, PA-RISC]
/
NeXTSTEP 3.3 Dev Intel.iso
/
NextDeveloper
/
Source
/
GNU
/
emacs
/
lisp
/
text-mode.elc
< prev
next >
Wrap
Text File
|
1991-01-09
|
3KB
|
45 lines
(defvar text-mode-syntax-table nil "\
Syntax table used while in text mode.")
(defvar text-mode-abbrev-table nil "\
Abbrev table used while in text mode.")
(define-abbrev-table (quote text-mode-abbrev-table) nil)
(if text-mode-syntax-table nil (setq text-mode-syntax-table (make-syntax-table)) (modify-syntax-entry 34 ". " text-mode-syntax-table) (modify-syntax-entry 92 ". " text-mode-syntax-table) (modify-syntax-entry 39 "w " text-mode-syntax-table))
(defvar text-mode-map nil "\
")
(if text-mode-map nil (setq text-mode-map (make-sparse-keymap)) (define-key text-mode-map " " (quote tab-to-tab-stop)) (define-key text-mode-map "s" (quote center-line)) (define-key text-mode-map "S" (quote center-paragraph)))
(defun text-mode nil "\
Major mode for editing text intended for humans to read. Special commands:\\{text-mode-map}
Turning on text-mode calls the value of the variable text-mode-hook,
if that value is non-nil." (interactive) (byte-code "˘È˙ Ȩ!ȲÉÈ˚ÉÈÉȸ!ȳ˝!Ç" [text-mode-map mode-name major-mode local-abbrev-table text-mode-abbrev-table text-mode-syntax-table nil kill-all-local-variables use-local-map "Text" text-mode set-syntax-table run-hooks text-mode-hook] 5))
(defvar indented-text-mode-map nil)
(if indented-text-mode-map nil (setq indented-text-mode-map (make-sparse-keymap)) (define-key indented-text-mode-map " " (quote indent-relative)) (define-key indented-text-mode-map "s" (quote center-line)) (define-key indented-text-mode-map "S" (quote center-paragraph)))
(defun indented-text-mode nil "\
Major mode for editing indented text intended for humans to read.\\{indented-text-mode-map}
Turning on indented-text-mode calls the value of the variable text-mode-hook,
if that value is non-nil." (interactive) (byte-code "ˋȲ È˚!ȸˆˋ\"ÈÉȳ!È˝¯!È˛ÉÈ˚!ÈˇÉÈ—Éȱ¼!Ç" [text-mode-map nil local-abbrev-table text-mode-abbrev-table text-mode-syntax-table indent-line-function indented-text-mode-map mode-name major-mode kill-all-local-variables use-local-map define-abbrev-table set-syntax-table make-local-variable indent-relative-maybe "Indented Text" indented-text-mode run-hooks text-mode-hook] 8))
(defun center-paragraph nil "\
Center each line in the paragraph at or after point.
See center-line for more info." (interactive) (byte-code "ˋÈÊ´ Ènň˜!È`¯ È˘`\"))Ç" [end nil forward-paragraph newline 1 backward-paragraph center-region] 6))
(defun center-region (from to) "\
Center each line starting in the region.
See center-line for more info." (interactive "r") (byte-code "ˆÈ VÄ
É)ÈÊ̘ \"ÈbÈm?Ä*¯ È˘˙!ÈÁ))Ç" [from to tem nil narrow-to-region center-line forward-line 1] 5))
(defun center-line nil "\
Center the line point is on, within the width specified by `fill-column'.
This means adjusting the indentation to match
the distance between the end of the text and `fill-column'." (interactive) (byte-code "ˆÈʈ˜ ȯ È˘ ȯ ÈiÉȘ È ˙¨
#²\"\\j))Ç" [line-length left-margin fill-column nil beginning-of-line delete-horizontal-space end-of-line / - 2] 11))